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New releases of any software product 
are always frustrating. Regardless of how 
many hours are spent debugging, alpha-testing 
and beta-testing, a number of nasty bugs always 
slip through. It's downright embarrassing. A prod- 
uct with the complexity of ZBasic means that 
certain combinations of commands, certain syntac- 
tical situations and certain problems with not-so- 
compatible hardware cause problems that are 
impossible to predict in advance. 

But ship a couple of thousand upgrades out and 
you find the bugs real fast! We fix them as fast as 
we can find them. We need your help to locate 
some of them since we may not have the same 
hardware set-up as you. 

Our Goal is Customer Satisfaction 

We aim to give you the product you want and 
upgrades at fair prices. We are continously work- 
ing on ZBasic to make adjustments and improve- 
ments that you ask for. 

The following policies will apply to ZBasic up- 
grades. We believe they are fair and equitable 
and allow us to sell ZBasic at a reasonable price. 

FREE UPGRADES WITHIN 90 DAYS 

When available, you may order a free upgrade by 
sending in your master ZBasic diskette within 90 
days from the date of original purchase or within 
90 days of receiving a major upgrade. 



Zedcor 
Upgrade 
Policies 



$19.95 AFTER 90 DAYS 

If you've had ZBasic for more than 90 days the 
upgrade charge will be $19.95. Simply call 1-800- 
482-4567 to order this upgrade. This also covers 
the cost of upgrading within the same version, i.e. 
if you own version 4.01 and the newest release is 
version 4.03, you may upgrade for $19.95. A new 
manual is not included with interim upgrades. 
Usually an appendix with changes or a "READ 
ME" file is included on the disk. 

$39.95 FOR MAJOR UPGRADES 

When upgrading from version 4.04 to version 5.0, 
the upgrade charge will be $39.95. This covers the 
costs of the incidentals mentioned above as well as 
new documentation. 

Be sure to read the section of this newsletter per- 
taining to your computer to keep tabs on bugs, 
upgrades and patches (if any). 

Free Upgrade if you find a New Bug 

If you find a new bug (verified by our support 
people) and mail us a complete description, you 
will receive a free upgrade to the next version. 
This does not apply to old bugs (call our support 
line to verify that it has not been discovered 
previously). We will forward you a new version as 
soon as it has been completed. 

We need your help 

finding bugs and really 

appreciate it when you 

report them. 



These upgrades policies are subject to change. 
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Macintosh 

As of this date Macintosh ZBasic version 4.0 is out 
and running! People are saying nice things about 
us... like we're the best BASIC for the Macintosh 
(which you already knew). 

BUG REPORT 

As you guessed we have some bugs in version 4.0. 
Here's the latest scoop: 

• The edit window has problems with System 4.1. 
Appears there was some kind of problem with 
TEEDIT in System 3.2 that was fixed in 4.1 which 
caused our editor problems. It is being fixed now. 

• No Help file. This will come out in the next 
release. We changed the help file significantly and 
have to create a PICT format file. We didn't want 
to delay 4.0 any more than we did so we decided to 
release it without it. The manual covers everything 
that will be in the Help file. 

• Find and Replace is not implemented yet. 

• Precision over 1000 digits was not implemented 
in direct mode (it does work when a stand-alone 
application is created). 



FREE UPGRADE TO 4.01 

You should have already received a postcard advis- 
ing you of these problems. You can receive a free 
upgrade to version 4.01 by sending us your ZBasic 
4.0 master diskette and your correct address. The 
upgrade will be available in six to eight weeks and 
will be shipped to you by first class mail. 



Changes to Event 
trapping in version 4.0 

As some of you have already noticed there is a 
slightly different "feel" to the event handling in 
version 4.0. This is the new "correct way" of doing 
event trapping according to "Inside Macintosh". 

The older versions of ZBasic would handle events 
in a different manner by "Turning off' events when 
an event trap occurred. This solved many prob- 
lems for novice programmers but created others in 
the area of missed events and lost window updates 
and such. 

The new version corrects the problem nicely and 
events are no longer lost. 

A system error 28 (stack overflow) will occur with 
some older programs if events are not handled 
correctly. An example of the error follows: 

Old Format (causes System Error 28 with v 4.0) 

MENU ON: MOUSE ON: DIALOG ON 

ON DIALOG GOSUB "Routine 1" 

ON MENU GOSUB "Routine 2" 

ON MOUSE GOSUB "Routine 3" 

'Main Event Loop" 

GOTO "Main Event Loop" 
> 

' Error 28 occurs because events are 
' still active and start piling up 
' on the stack in version 4.0 

New Format required in version 4.0: 

MENU ON: MOUSE ON: DIALOG ON 

ON DIALOG GOSUB "Routine 1" 

ON MENU GOSUB "Routine 2" 

ON MOUSE GOSUB "Routine 3" 

'Main Event Loop" 

GOTO "Main Event Loop" 

MENU OFF: MOUSE OFF: DIALOG OFF 

As you can see, all that is required is to turn off 
the events after the event loop so that they are not 
active when you exit the main event loop. If the 
event trapping is active at this time, new events 
are loaded on the stack eventually causing a Stack 
Overflow error (system error 28). 
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You figured out 
how to hide the 
Menu Bar!?? 



Wouldn't it be nice to create a window that's as big 
as the screen? Until now that has been an un- 
known secret hidden in the gloomy depths of 
"Inside Macintosh". 

Thanks to "Z" reader, Anthony Oresteen, the 
problem is solved. We tried it on a Mac Plus, an 
SE with a Radius monitor and a Mac II and it 
works great. Have fun! 




REM This program draws a window over the menu region 

REM so you can use the whole Macintosh screen for your 

REM programs . 

REM Program submitted by Anthony Oresteen, August 1987. 



CLS: COORDINATE WINDOW: WINDOW OFF 



VSIZE%= PEEK WORD (PEEK LONG (&904) -116) 
HSIZE%= PEEK WORD (PEEK LONG (& 904) -114) 



■* Vertical size of screen 
' Horizontal size of screen 



GRAY&=PEEK LONG(&9EE) 

CALL OPENRGN 

OLDDESKTOP&=FN NEWRGN 

CALL COPYRGN (GRAY&, OLDDESKTOP&) 

CALL SETRECTRGN (GRAYS, 0,0, HSIZE%, VSIZE%) 



■* Gets gray region of desktop 

11 Saves region data 
x Gets a new handle for region 
' Gets a copy of standard desktop 
1 Sets desktop to full screen 



WINDOW#l ,, (0,0) -(HSIZE%,VSIZE%) ,3 
COORDINATE 1023, 7 67 

BEEP 

BOX FILL 0,0 TO 1023,767: 

TEXT, 2 4,, 2: PRINT : PRINT "FULL SCREEN WINDOW!! 

DO 

UNTIL LEN(INKEY$) 



' Sets Window to full screen size 



WINDOW CLOSE #1 

CALL COPYRGN (OLDDESKTOP&, GRAY& ) 

CALL PAINTRGN (GRAY&) 

CALL DISPOSERGN(OLDDESKTOP&) 

CALL DRAWMENUBAR 



WINDOW#l ,, (0,40)-(HSIZE%,VSIZE%-20) ,257 

TEXT 0,12 

PRINT : PRINT "SMALL WINDOW WITH MENU BAR BACK AGAIN! ! ! 

DO 

UNTIL LEN(INKEY$) 

END 



' CLOSE FULL SCREEN WINDOW 

x Restores normal desktop region 

* Draws region 

A Throw away the old handle 

' Restores menu bar 

' Sets Window to full screen size 
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BEZIER CURVES 

A ZBasic programmer sent in a program he had 
created to do Bezier Curves using floating point 
math. This type of graphic curve calculation 
routine is used in programs like Adobe's Illustrator 
and other CAD/CAM and graphics applications. 
The problem was that the curve calcuation took too 



much time in floating point. Andrew provided a 
Longlnteger version of the routine that operates 
about ten to fifteen times faster. Try it out. 

Converting to two byte integer is a problem. The 
resolution would be limited to 256 points so it 
would look pretty nasty. Any ideas? 



"BIG LOOP" 

COORDINATE WINDOW : WX=WINDOW(6) : WY=WINDOW(7) : CLS 

XC1=RND(WX) : XC2=RND (WX) : XC3=RND (WX) : XC4=RND (WX) 

YC1=RND(WY) : YC2=RND (WY) : YC3=RND (WY) : YC4=RND (WY) 

KM%=100 : REM *** # OF POINTS *** 

CIRCLE XC1,YC1,10 : CIRCLE XC1,YC1,2 

CIRCLE XC2,YC2,10 : CIRCLE XC2,YC2,2 

CIRCLE XC3,YC3,10 : CIRCLE XC3,YC3,2 

CIRCLE XC4,YC4,10 : CIRCLE XC4,YC4,2 

PLOT XC2,YC2 TO XC3,YC3 

FOR SS=1 TO 2 : COLOR SS=1 

OX-XC1 : OY=YCl : PLOT OX,OY : REM *** 1ST POINT *** 

ON SS GOSUB "OLD BEZIER", "NEW BEZIER" 

PLOT TO XC4,YC4 : REM *** LAST POINT *** 

BEEP : BREAK ON : COLOR -1 
NEXT SS 

BREAK OFF: DELAY 500 
GOTO "BIG LOOP" 

"OLD BEZIER" 

NBS!=1./KM% : T!=NBS! : RU!=.5 
DO 

T2 ! =T ! *T '. 

T3!=T2!*T! 

NCI ! =1-3*T ! +3*T2 ! -T3 ! 

NC2 ! =3*T3 ! -6*T2 ! +3*T ! 

NC3 ! =3*T2 ! -3*T3 ! 

NC4 ! =T3 ! 

X=NC1!*XC1 +.NC2!*XC2 + NC3!*XC3 + NC4 ! *XC4 + RU! 

Y=NC1!*YC1 + NC2!*YC2 + NC3!*YC3 + NC4 ! *YC4 + RU! 

IF ABS(X-0X)>1 OR ABS(Y~0Y)>1 THEN PLOT TO X,Y:OX=X:OY=Y 

T!=T!+NBS! 
UNTIL T! >= 1 
RETURN 

"NEW BEZIER" 

RU&=S&»1 : S&=32768 : KXS= (SS*S&+ (KM%»1) ) /KM% 

T&=(KX&+RU&) » 15 

DO 

T2£=(T&*T& + RUS) » 15 : T3&=(T2S*TS + RU&) » 15 

NCU=S& - 3*T& + 3*T2& - T3& 

NC2&=3*T3& - 6*T2& + 3*T& 

NC3&=3*T2& - 3*T3S 

NC4&=T3& 

X=(NC1S*XC1 + NC2&*XC2 + NC3&*XC3 + NC4&*XC4 + RU&)/S& 

Y=(NC1&*YC1 + NC2&*YC2 + NC3&*YC3 + NC4&*YC4 + ROS)/S& 

IF ABS(X-0X)>1 OR ABS(Y-OY)>l THEN PLOT TO X , Y : OX=X : OY=Y 

T&=(T&*S& + KXS + RU&) » 15 
UNTIL T& >= S& 
RETURN 




$100 

rf.Fj WA rf.l J 

We need example programs 
that use ZBasic AppleTalk 
commands. We will pay $100 
for the best program that com- 
pletely demonstrates the use 
of AppleTalk. Send programs 
on disk to: AppleTalk/Z, 4500 
E. Speedway, Suite 22, 
Tucson, AZ 85712-5305. 
Programs become the prop- 
erty of Zedcor. All submis- 
sions of useable code will get 
next ZBasic upgrade for free. 



Ti 
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Dear Dr. Z, 

I am especially pleased with the way the 
new MSDOS version of ZBasic is evolving, 
having just received my 4.01 update. It 
will be absolutely super when it is com- 
pletely debugged and probably meet 90 
percent of my programming needs. 

However, I find that some of my most 
useful programs are TSR utilities, such as 
SuperKey. (TSR=Terminate and Stay 
Resident, ed.) 

I could greatly benefit for a number of spe- 
cial needs with dedicated TSR utilities, es- 
pecially if they would not require as much 
memory as some of the commercially 
available multi-purpose utilities. At this 
point my only alternative appears to be to 
learn assembly (or perhaps C) language so 
that I can write my own TSR programs. 

My question is this; Is there a way to 
make an MSDOS ZBasic program into a 
TSR activated by a "Hotkey"? If that is 
possible, ZBasic would probably meet 99 
percent of my needs. 

Thank you for your kind attention to this 
matter. I look forward to your response. 

Bob Chubon 
Columbia, SC 



Dear Bob, 

This is an interesting question. Having 
talked with my fellow programmers we 
have come to the conclusion that it is in- 
deed possible. To explain it however will 
take us until the next issue. Hold on until 
then and we will have a special column 
about this. 




Dear Dr. Z, 

I have several questions: 

1. When we are in a BASIC program is 
there any way to dump the screen without 
pressing a key?: 

10 CLS 

300 CIRCLE 

400 DUMP? 

2. When will you offer a version for the 
Atari ST or Amiga? 

3. Is there a command or technique to use 
the whole screen without viewing the 
menu bar? 

4. Will you be offering a special version for 
the Mac II or the Apple IIGS? 

5. You should support "Keys" in file 
searching like in Pascal and Cobol. 

6. We use the TOPS network to transfer 
files between Macintosh and IBM. We 
have a problem, the files transferred have 
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extra characters. TOPS is a fantastic and 
cheap network. Try it. 

We distribute your ZBasic in Greece and 
believe your newsletter is getting better 
with each new issue. 

Manolis Milonakis 
Athens, Greece 



Dear Mr. Milonakis, 
Your answers in order... 

1. With Macintosh and IBM you can use 
the PAGE LPRINT command. With the 
MSDOS version make sure you have 
loaded the "GRAPHIC.COM" program 
that comes with MSDOS. 

With Macintosh you will have no problems 
except when using a LaserWriter. The 
screen dump facility has problems with 
some versions of the system. In this case 
you could store your text and graphics in a 
"PICT" by modifying your example pro- 
gram and then "dumping" it to the printer 
with ROUTE 128: 

CLS 

PICTURE ON: CALL SHOWPEN 

CIRCLE 250, 300, 300 
PICTURE OFF 



AS=PICTURE 

I 

DEF PAGE 
DEF LPRINT: 

ROUTE 128: 

PICTURE , A& 
ROUTE : 



REM Store in AS 

REM Printer setup 
REM Route to printer 
REM Back to screen. 



2. When the economics dictate that we 
spend the time to create versions for these 
computers, we will. The news that we have 
is that neither computer is going to survive 
the Apple / IBM war. (Do you agree? ed.) 



3. See the article in the Mac section of this 
newsletter. 

4.The Mac version will encompass the Mac 
II color and sound capabilities early next 
year. We have not decided on whether to 
persue a complete Apple IIGS version with 
toolbox calls and such. What do our read- 
ers think? We're going to the AppleFest in 
San Franciso this September. We'll let you 
know after that. 

5. We are looking at providing special 
BTree file support as an option in a short 
while. Will keep you informed. 

6. We've heard a lot of good things about 
TOPS. The problem you are having is that 
some computers provide an extra Linefeed 
or Carriage return at the end of a line. To 
strip off this extra character create a small 
ZBasic program: 

OPEN "I", 1, "OriginalFile" 
OPEN "0",2, "NewFile" 
WHILE EOF(1)=0 

LINEINPUT#1, A$ 

A$=LEFT$ (A$ , LEN (A$ ) -1 ) 

PRINT#2, A$ 
WEND 
CLOSE* 1: CLOSE#2 

That should do the trick. 




You can write Dr. Z, 
c/o Zedcor, 4500 E. Speedway, 
Suite 22, Tucson, AZ 85712-5305. 
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1 n the beginning the Project manager created the Programming 
JL Btaff. The programming staff was without form and structure. 
And the Project Manager said, "let there be Organization"; 
and there was Organization. And the Project Manager saw that 
Organization was good; and the Project Manager separated the 
workers from the Supervisors, and he called the supervisors: 
"Management", and he called the workers : "exempt*. 

And the Project Manager said, "Let there be a mission in the 
midst of the Organization, and let it separate the workers, 
one from another." And the Project Manager created the 
mission and he called it : "The SyBtem". And the Project 
Manager separated those who were to benefit from The System, 
from those who were to build it And he called the former 
"Users", and he called the latter. "Programmers". 

And the Project Manager said, "Let all the Programmers in the 
Organization be gathered in one place, and let a Chief 
Programmer be brought up to lead them". And it was so. And 
the Project Manager saw that he was competent. 

And the Project Manager said unto the Chief Programmer, 
"Create for me a schedule, so that I may look upon the 
schedule and know the Due Date." And the Chief Programmer 
went among his staff and consulted with them. And the staff 
was divided into two parts; one part was called: "Analysts", 
and the other part was called: "Application Programmers". 
And the Analysts went back to their desks and estimated.as was 
their custom. And it came to pass that each Analyst brought 
his estimate to the Chief Programmer, whereupon he collected 
them, summarized them, and drew a PERT chart. 

And the Chief Programmer went unto the Project Manager and 
presented to him the estimate saying "It shall take ten 
months." And the Project Manager was not pleased and said, "I 
have brought you up from the depths of the staff; but you have 
not grasped the Big Picture." And the Project Manager hired 
consultants, and authorized overtime, and he said to the 
Chief Programmer, "Behold, see all I have done! The Due Date 




PleaBe don't throw away your ZBasic . 
invoice, especially if it was purchased 
from someone other than Zedcor, It *> H 
could mean the difference between a 
free upgrade and a 819,95 charge. 




will be in five months." The Chief Programmer was much 
impressed and went from the Project Manager and proceeded to 
implement The System. 

And the Chief Programmer sent his Analysts to the Users and 
said, "Let Specifications be written." And there were 
meetings, and lunches, and telephone calls. And the 
Specifications were written. And there was a Payday and the 
Happy Hour; one month. 

And the Chief Programmer examined the specifications and saw 
that they were too ambitious. And he separated the mandatory 
features from the optional features; and he called the 
mandatory features: "Requirements", and he called the optional 
features: "Deferred", and the Users called him naines. And the 
Chief Programmer gave the Specifications to the Analysts and 
said, "Let the Requirements be analyzed and let the files be 
designed." And it was so. And the Chief Programmer said, 
"Let the Software Houses put forth their Salesmen, and let us 
have a Data Management System." And it was so. The Software 
Houses brought forth all things for them, each according to 
his own file structure. And it came to pass that a Data 
Management System was selected; and the Chief Programmer saw 
that it was good. And there was a Payday and the Happy Hour, 
a second month. 

And the Chief Programmer said, "Let the system be divided into 
parts, and let each part be called a 'Module'. And let 
programming teams be formed and let each be assigned to write 
a Module." And it was so. And the Chief Programmer created 
the programming teams with two levels, a greater and a lesser; 
and he called the greater the "Senior Programmers", and he 
called the lesser the "Junior Programmers", and he gave the 
greater dominion over the lesser. And the Chief programmer 
saw that it was good. And the Junior programmers saw it 
differently. And there was a Payday and the Happy Hour; a 
third month. 

And the Chief Programmer said, "Let the programming be started 
and let much overtime be consumed, for there is but two months 
left." And the Programmers, both the Senior and the Junior, 
were much afraid, they strove to please the Chief Programmer. 
And they fiowcharted, and they coded, each in his own fashion. 
And the Chief Programmer looked upon the work and liked it 
not And the Chief Programmer said, "Let there be a Standard. 
And the programmers looked upon the Standard and liked it not 
And there was a Payday and the Happy Hour; a fourth month. 

And the Chief Programmer said, "Let there be Progress Reports, 
so we can monitor and control", and there were Progress 
Reports. And the Chief Programmer looked upon the Progress 
Reports and saw that the Due Date was not to be met. And the 
Chief Programmer arose, pressed his Buit, shaved his beard, 
and went unto the Project Manager, and groveled. And the 
Chief Programmer pointed his fingers, and caused Blame to 
issue forth upon all manner of creatures who sold Hardware and 
Software. And the chief Programmer aBked for an extension. 

And the Project Manager was exceedingly angry, and cast doubts 
upon the Chief Programmer's ancestry; and uttered a multitude 
of threats. But it came to pass the Extension was granted; 
and the Chief Programmer took the Extension back to the 
programming teams, and there was much rejoicing. And there 
was a Payday and the Happy Hour; a fifth month. 

And the Chief Programmer said, "Let the programming Modules be 
integrated, one with another, so that System Testing may 
begin," And it was so. Two by two the Modules were 
integrated, one with another. And great difficulties were 
experienced, and many hours of overtime were used, and many 
cups of coffee were consumed. And it came to pass that System 
Testing was completed. And there was a Payday and the Happy 
Hour; a sixth month. 

Then the Chief Programmer did go to the Project Manager and 
said unto him, "Behold, I bring you good tidings of joy which 
will come to the Users; for on this day The System is 
completed." And suddenly there was with them a multitude of 
Users praising the Chief Programmer and saying, "Glory be to 
the System in the highest, but could you make one small 
change??" 
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Letters 
Editor 



To the Editor, 

The latest issue is excellent! While it did 
cost $5.00, which some of your readers 
consider expensive, it has more of value to 
me than BYTE and several other maga- 
zines. As for the others, 80% of the storage 
space is for advertising! Keep up the good 
work! 

I think modems are neat and setting up 
RS-232 helps insomnia (although it does 
not cure it). However, we don't intend to 
get a modem and we think paper still has 
great value. So don't limit significant 
information and programs to a BBS. Let 
us know what is available via "Z". $5 or 
$10 for a disk full of programs is very 
reasonable. 



Subroutines with Arguments: Isn't this 
what a LONG FN is? It would be more 
elegant to distinguish between procedures 
and functions (as Pascal does) but it's not 
vital. Maybe you could change the format: 
X=FN PROCEDURE_X when you have no 
use for X is tacky. CAPS/lower case for 
GLOBALS/locals is fine. 

By responding to many of the letters, you 
may move us in an evil direction. Is ZBa- 
sic better than QuickBASIC??? It sure is 
on our Apple and on our TRS-80! Wasn't 
that one of your goals to make ZBasic 
transportable? As long as Quick, True, 
Real, Classic and other compilers only 
work on one kind of machine, a lot of us 
don't care how good they are. 



William Horton 

WDH Resources 

RDl,Boxl38 

Alfred Station, NY 14803 



Dear William, 

Thanks for the support! On of the 
strengths of ZBasic is that code is trans- 
portable. We also think we're the best on a 
one-to-one basis with ANY OTHER BASIC 
COMPILER ANYWHERE. 

To the Editor, 

A suggestion on the Tech-support line: 
some questions/problems are relatively 
simple. Perhaps a secretary or "level 1" 
type support person could screen calls and 
offer help. They could free up the phone 
for the regular support person. 

A newsletter is undoubtably a lot of work 
and supplies a lot of information. But, 
problems and solutions can surface faster 
than four times per year. Perhaps a 
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monthly "bug notice" with fixes (either 
supplied, or available if a diskette is sent 
in). 

In the last "Z" newsletter, there were 
several mentions of the Cauzin Stripper. I 
think it would be the ideal medium for 
propagating ZBasic programs and rou- 
tines. Submissions would be easier also! 
Someone suggested accompanying news- 
letters with diskettes. How could you 
supply so many formats? One of ZBasic' s 
big advantages is portability between 
machines, but unfortunately diskettes are 
not. Strips are. And considerably cheaper. 

A few months ago, InCider magazine had 
a deal with Cauzin selling Strippers at a 
discount. I passed that up as I couldn't 
quite justify using it only with one maga- 
zine. If Zedcor could make such an ar- 
rangement, I would seriously consider a 
Stripper. 

William J. Coohon 
8235 Welter Rd. 
Ovid, MI 48866 

Dear William, 

Thank you for your feedback. We have 
considered the CauzinStripper and have 
debated the issue here considerably. At 
this point we are going to "Wait and see". 

As for a newsletter of more frequency... this 
also is being debated. Perhaps a smaller 
newsletter every two months? Perhaps an 
even smaller one every month? Say 2-3 
pages? 



To the Editor, 

Business consultant Tom Peters has noted 
a decline of American Business due to the 
basic diregard most organizations hold for 



I'm pleased to not only exempt you from 
that category, but commend you for the 
continued service you have provided me. 

It has become increasingly difficult to 
justify using any other BASIC compiler 
since I began with ZBasic a year and half 
ago. 

Version 4.0 includes features I specifically 
asked about. At the time, your staff pro- 
vided effective answers to enable me to 
use the features requested (specifically; 
determining display type and accessing 
the command line). The latest version 
provides simple commands for these fea- 
tures. 

Again, thank you for an excellent product 
and user support. 

Peter Olivola 
2036 N. Kenmore 
Chicago, IL 60614 



Dear Peter, 

Thank you for your feedback and support. 
We are still working hard to give ZBasic 
new commands and features that people 
ask for. While this takes time, we still 
strive to make the customer happy. 




You can write to the 
Editor c/o Zedcor, 4500 E. 
Speedway, Suite 22, Tucson, AZ 
85712-5305. 
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APPLE II ProDOS™ 
and DOS 3*3 

The Apple DOS 3.3 version is being reworked now 
to bring it up to version 4.0 standards. The cur- 
rent version is 3.2. Hopefully version 3.9 will be 
released before the end of the year. It will be the 
final release of this version. It will contain bug 
fixes and a number of other features but will not 
have a full screen editor like the newer ones. 

The Apple ProDOS version of ZBasic is selling like 
hotcakes. Version 4.02 is fully debugged (at least 
so far) and is getting great reviews. The following 
program lets you access pathnames: 



LONG FN GETPATH$ (SLOT, DRIVE) 

REM This function will allow you to use a slot and drive specification 
REM to access a ProDOS device. It will return the volume name of the 
REM device. 

REM Convert slot and drive into ProDOS unit_num 

UNITJNUM = (SLOT « 4) OR ((DRIVE - 1) « 7) 

POKE S1F01, UNIT_NUM : REM Place it in the parmlist 

POKE S-'IFOO, 2 : REM 2 parms for the online call 

POKE WORD &1F02, &1F12 : REM use file name buffer 

REM Change the following &803 to &865 for 128K version 

MACHLG &A9, &C5, &20, &803 : REM Perform the ProDOS call (64K version) 

A% = VARPTR(PATH$) : REM Point to ZBasic string 

LNGTH% = PEEK(&1F12) AND &0F : REM Get length of volume name 

POKE A%, LNGTH% : REM Init ZBasic string length 

LONG IF LNGTH% <> : REM Only store string if there's a string to store 

FOR I = 1 TO LNGTH% 

POKE A% + I, PEEKU1F12 + I) 

NEXT I 
END IF 
END FN = PATH$ 



I Want 

Access to 

the IIgs 

Graphics!!! 




©Copyright 1987, Zedcor, Inc., All RighU Reserved 



MAIN BANK 
machine language 
subroutines in 
128K ProDOS 




Page 13 




By Greg Branche 



This handy little utility allows you to POKE or 
BLOAD machine language programs into variables 
and then execute them. Since the main program 
area of ZBasic is in the Aux bank this was a 
problem. This program fixes that: 

REM Long function simply pokes address into caller 
REM subroutine, and then calls it to switch banks 
REM and call the main subroutine. This functions 
REM should be used for cross-bank subroutine calls 
REM in the 128K ProDOS version. 

LONG FN CallMain (Address) 

REM First set up the actual address to call 

POKE WORD SF7, Address 

REM And call the subroutine 

CALL SFO 

END FN 

REM This sets up a subroutine on zero page to call 
REM the real subroutine in the main bank of memory. 
REM It MUST be done before the function is called. 



; Turns on the main bank 
;subrtne addr goes here 



REM Assembly language 


REM 




REM 3TA 


$C004 


REM STA 


SC002 


REM JSR 


SO 


REM SUBL0C EQU 


*-2 


REM STA 


SC005 


REM STA 


SC003 


REM RTS 





;This turns the aux bank on 



FOR I = SFO TO SFF 

READ A 

POKE I, A 
NEXT I 

DATA S8D,4,SC0,&8D,2,SCC, £20,0 
DATA 3, S8D,5, SCO, S8D, 3, SCO, S60 



Sample Program 



00010 

00011 

00020 

00021 

00030 

00040 

00050 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00161 

00170 

00171 

00180 

00190 

00200 

00201 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00341 

00350 

00360 

00361 

00370 

00380 

00381 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00461 

00470 

00480 

00490 

00500 

00501 

00510 

00520 

00530 



REM Long function simply pokes address 
REM into caller subroutine, and 
REM then calls it to switch banks and 
REM call the main subroutine. 

LONG FN CallMain (Address) 

REM First set up the actual address to call 

POKE WORD SF7, Address 

REM And call the subroutine 

CALL SFO 

END FN 

REM This sets up a subroutine on zero 
REM page to call the real subroutine 
REM in the main bank of memory. 
REM It MUST be done before the function 
REM is called. 

REM The subroutine looks like this 

REM in assembly language 

REM 

REM STA SC004 

REM STA SC002 ; Turns on main bank 

REM JSR $0 ;addr of sub goes here 

REM SUBLOC EQU *-2 

REM STA SC005 

REM STA SC003 ;This turns aux bank on 

REM RTS 

FOR I = SFO TO SFF 

READ A 

POKE I, A 
NEXT I 

DATA S8D,4,SC0,S8D,2,&C0,S20,0, 
DATA 3,S8D,5,SC0,S8D,3,SC0,S60 

REM This is just a sample subroutine 

REM that is poked into page 3 of 

REM the main bank. It simply prints a CHRS(7) 

REM It would be just as easy to CALL 

REM a BLOADed subroutine 

FOR I = &300 TO &.304 

READ A 

POKE I, A 
NEXT I 
DATA SA9,S87,S4C,SED,SFD 

REM Call the function to call 

REM the subroutine in the main bank 

FN CallMain (5300) 

REM And now to prove that 

REM we're back where we started... 

PRINT "Program terminated successfully!" 
END 
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Paint 

Program 

Utilizes 

AJLGS 

Super- 

Hi-RES 
Graphics 

Now you can see 
how programs 
can access the 
features of the 
IIGS graphics. 

This program is 
fun and will give 
you some impor- 
tant insights. 

Enjoy. 



ON ERROR GOSUB "ERROR HANDLER" 

MODE : CLS : POKE SC035.S16 : VT = 1 : HT = 1 

Color = I 

LINE INPUT ! Si, "Load picture? (Y/N) "; PS 

PS = UCASES(PS) 

LONG IF PS = "Y" . 

GOSUB "LOAD PIC" 

REM Either load a picture, 
XELSE 

GOSUB "INIT SCREEN" 

REM or clear the screen 
END IF 

X = MOUSE (0) : REM Init mouse 

R£M . -' CHECK KEYBOARD - 

"MAIN LOOP" 

KEYS = INKEYS 

LONG IF KEYS = CHRS (27) 

POKE SC029, 1 : REM Switch back, to text screen 

GOSUB "MENU" 

POKE SC029, SE1 

REM Switch to graphics screen again 
END IF 

IF KEYS = " " THEN Color = (Color + I) AND 15 
REM CHANGE COLOR 

t^EM GET X,Y FROM MOUSE 

X = MOUSE (1) : Y = MOUSE (2) : S = MOUSE (3) 



X = X \ 3.2 

REM SCALE TO 320 X 2C0 COORDINATES FROM 1024 X 767 

Y = Y \ 3.85 

REM FORCE FLOATING POINT MATH 

REM DRAW COLOR C AT X, Y OR MOVE CURSOR 

Mem = 8192 + Y « 160 + X / 2 

REM Calculate pixel address 

REM Get original byte into PIXEL 

MACHLG S18 

MACHLG SFB 

MACHLG 5 08 

MACHLG &C2, SlO 

MACHLG SAE, Mem 

MACHLG S3F, 0, 0, 1 

MACHLG S8D, PIXEL 

MACHLG S28 

MACHLG SFB 

REM Calculate high or low nybble of byte 

NYBBLE = X AND 1 

LONG IF S = 1 

CHANGED = I : REM Set changed flag 

LONG IF NYBBLE = 

= PIXEL AND S0F : REM Clear pixel value 
= PIXEL OR (Color « 4) : REM set value 



PIXEL 
PIXEL 
XELSE 
PIXEL 



PIXEL AND SF0 
REM pixel is in lower nybble 
PIXEL = PIXEL OR (Color AND S0F) 
REM set new pixel 
,ND IF 



MACHLG 518 






MACHLG SFB 






MACHLG S08 






MACHLG SC2 


SlO 




MACHLG SAD 


PIXEL 




MACHLG SAE 


Mem 




MACHLG S9F 


0, 0, 


I 


MACHLG S28 






MACHLG SFB 






END IF : REM 


Then fi 


ash cursor 


MV = PIXEL : 


REM Save original pixel value 


LONG IF NYBBLE = 




PIXEL = PI 


XEL XOR 


SF0 


REM complement co! 


or to flash cursor 


XELSE 






PIXEL = PIXEL XOR 


S0F 


END IF 






REM set altered pixel value 


MACHLG Sl.8 




: REM CLC 


MACHLG SFB 




: REM XCE 


MACHLG SO 8 




: REM PHP 


MACHLG SC2, 


SlO 


: REM REP #S10 


MACHLG SAD, 


PIXEL 


: REM LDA PIXEL 


MACHLG SAE, 


Mem 


: REM LDX Mem 


MACHLG S9F, 


0, 0, 1 


: REM S010000,X 


MACHLG S28 




: REM PLP 


MACHLG SFB 




: REM XCE 


DELAY 50 : REM MAKE 


SURE IT FLASHES! 


REM then restore or 


iginal value 


MACHLG S18 




: REM CLC 


MACHLG SF3 




: REM XCE 


MACHLG SO 8 




: REM PHP 


MACHLG SC2, 


SlO 


: REM REP «S10 


MACHLG SAD, 


MV 


: REM LDA MV 


MACHLG SAE, 


Mem 


: REM LDX Mem 


MACHLG S9F, 


0, 0, I 


: REM STA S010000.X 


MACHLG S28 




: REM PLP 
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MACHLG SF3 
GOTO "MAIN 



\EM XCE 



POKE WORD S3E , SoF'FF 



J AD 



IURE 



REM Disclav text: screen 



VT- 



REM 

REM 

"LOAD PIC" 

POKE SC029,: 

LOCATE HT-I, 

CLS LINE 

INPUT "Enter picture to load -> "; PICS 

POKE SCQ29, SE1 : REM Display graphics screen 

CHANGED = : Leading = -i 

POKE WORD S1F01, VARPTR (PICS) 

POKE WORD S1F03, S8800 : REM I/O BUFFER 

POKE S1F00, 3 : REM 3 FARMS FOR OPEN 

MACHLG SA9, SCS, 520, 5803, S90, 3, £20, 58C51 

REM OPEN THE FILE 

POKE S1F00, 4 : REM 4 FARMS FOR READ 

POKE WORD S1F02, S20CC : REM READ INTO S2000 

POKE WORD S1F04, S2000 : REM READ S2000 BYTES 

MACHLG 5A9, SCA, 520, S803, 590, 3, 520, S8C51 

REM DO THE READ 

POKE WORD S3C, &2000 : POKE WORD S3E, &3FFF 

POKE WORD 542, S2CC0 

MACHLG 538, &20, SC311 

REM MOVE PART 1 OF 4 TO AUX MEM 

MACHLG SA9, SCA, 520, S803, 590, 3, 520, S8C51 

REM READ PART 2 

POKE WORD S3C, S2000 : POKE WORD S3E, S3FFF 

POKE WORD S42, S4000 

MACHLG 538, S20, SC311 : REM MOVE PART 2 TO AUX MEM 

MACHLG SA9, SCA, S20, 5803, 590, 3, 520, S8C51 

REM READ PART 3 

POKE WORD S3C, 52000 : POKE WORD S3E, S3FFF 

POKE WORD S42, S6000 

MACHLG 538, $20, SC311 : REM MOVE PART 3 TO AUX MEM 

MACHLG SA9, SCA, 520, S803, S90, 3, 520, &8C51 

REM READ PART 4 

POKE WORD S3C, $2000 : POKE WORD S3E, S3FFF 

POKE WORD $42, $8000 

MACHLG 538, 520, SC311 : REM MOVE PART 4 

POKE S1F00, 1 : REM 1 FARM FOR CLOSE 

MACHLG SA9, SCC, $20, $803, 590, 3, 520, S8C51 

REM CLOSE THE FILE 

RETURN 



SAVE PICTURE 



REM 

REM 

3EM _ _ _ _ 

"SAVE PIC" 

IF LEN(PICS) = THEN "SAVE AS" 

Loading = 

POKE WORD S3C, 52000 : POKE WORD S3E, S3FFF 

POKE WORD 542, $2000 

MACHLG SIS, $20, SC311 

REM MOVE PART 1 OF 4 TO MAIN MEMORY 

POKE WORD S1F00, 3 : REM 3 FARMS FOR OPEN 

POKE WORD S1F01, VARPTR (PICS) : 

REM POINT TO FTLENAME 

POKE WORD S1F03, S8800 : REM USE I/O BUFFER AT $8800 



A9, SCS, S20, 



$20, S8C51 



£-Lft_r1_,- arts, ---, J_-, _803, S90, 

REM OPEN THE FILE 

POKE S1F01, ?EEK(S1F05) : REM GET REF_NUM 

POKE S1F00, 4 : REM 4 PARKS FOR WRITE 

POKE WORD SIFC2, $2000 : REM WRITE FROM S20CO 

POKE WORD S1F04, $2000 : REM WRITE 52000 BYTES 

MACHLG SA9, SC3, S20, $803, $90, 3, S20, SSC51 



POKE WORD S3C, S4000 

POKE WORD 542, S20C0 

MACHLG 518, 520, SC311 : REM MOVE PART 2 

MACHLG SA9, SCB, 520, SS03, $90, 3, $20, 

REM WRITE PART 2 

POKE WORD S3C, S6000 : POKE WORD S3E, S7I 

POKE WORD S42, S2000 

MACHLG £18, $20, SC311 : REM MOVE PART 3 

MACHLG SA9, SCB, S20, 5803, 590, 3, 520, 

REM WRITE PART 3 

POKE WORD S3C, $8000 : POKE WORD S3E, 59E 

POKE WORD S42, 52000 

MACHLG 518, 520, SC311 : REM MOVE PART 4 

MACHLG SA9, SCB, 520, S803, $90, 3, $20, 

REM WRITE PART 4 

POKE S1F0C, 1 : REM 1 FARM FOR CLOSE 

MACHLG SA9, SCC, S20, S803, 590, 3, S20, 

REM CLOSE THE FILE 

POKE SC029, SE1 : CHANGED = : PS = "Y" 

RETURN 



S8C51 



S8C51 



S8C51 



REM 
REM 
REM 



INIT SCREEN 



;out 658: 



b into native 



"INIT SCREEN" 

poke sc029, se: 

MACHLG S18 

REM CLC 

MACHLG SFB REM XCE 

MACHLG SC2, 530 : REM RE? #530 

; 16-bit registers and accumulator 

MACHLG SA9, SO, SO 

REM LDA #0 

MACHLG SA2, S7E00 

REM LDX SS7E0O ,-ciea 

MACHLG S9F, 5 IFF 



; clear accumulator 
is many bytes 



501 



; clear tne grapmes cutter 

: REM DEX 



;aecrement twice lor words! 



;loop tnrougn entire outrer 
: REM SE? #S30 



REM STA SOllFFE.X 

MACHLG SCA 

MACHLG SCA 

REM DEX 

MACHLG SD0, SF8 

REM BNE -8 

MACHLG SE2, 5 30 

; 8-bit registers/accumulator 

MACHLG 5 38 

REM SEC ;back to emulation mode 

MACHLG SFB : REM XCE 

RESTORE 

FOR I = TO 31 STEP 2 

READ T 

POKE WORD 52000 + I,T 
NEXT : REM SET PALETTE #0 

POKE WORD S3C, $2000 : POKE WORD S3E, S201 
POKE WORD S42, S9E00 
MACHLG 538, 520, SC311 
REM Move Palette =0 into aux memory 
RETURN 

DATA 0,5777,5841, S72C,SF,S80 
DATA SF70,SD00,SFA9, SFFO.SEO 
DATA S4DF,SDAF,S78F, SCCC, SFFF 

P(£ M _____ 

REM PRODOS MENU 

"MENU" 

CLS 

LONG IF LEN(PICS) > 

FOR I = LEN(PICS) TO 1 STEP -1 
AS = MIDS(?ICS, 1,1) 
IF AS = "/" THEN PSN =1:1=1 
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XELSE 
AS = 






PRINT "FILE : "; AS 

PRINT "COLOR:"; Color 

PRINT @(11, S) 

PRINT g(ll, S) 

PRINT 2- (11, 10) 

PRINT 3(11,12) 



i) Loaa picture 

2) Save picture" 

3) Save picture 

4) Go back to pi 



PRINT @(11,14) "5) Clear screen 
PRINT S(ll,16) "6) Quit": POKE 

3S = "123456" - CHRS127) 



5C029, 




POKE SCQ29,S 



HEN G0SU3 "SAVE PIC 

:OOP" 



LONG IF ERR = 3 AND NOT Loading 
REM FILE NOT FOUND ERROR 

GOSUB "CREATE FILE" 

C-OSU3 "SAVE PIC" 

POKE SC029, SE1 

RETURN "MAIN LOOP" 
END IF 

PRINT ERRMSGS (ERR) 

PRINT "Press any key to continue.. 
DO : UNTIL LEN(INKEYS) 
RETURN "MENU" 



AS = INKEYS 
UNTIL INSTR1I, 33, AS) > 
IF AS = CHRS(27) THEN "GO BACK" 

ON VAL(AS) GOTO "LOAD IT", "SAVE PIC", "SAVE AS 
"GO BACK", "CLEAR IT" 
REM Quit here! 
GOSUB "CHANGED?" 
CLS : MODE 2 : END 

"CHANGED?" 

LONG IF CHANGED = I 

LOCATE 6, 19 : CLS LINE 

PRINT "Save picture? (Y/N)"; 

DO 

PIS = UCASES (INKEYS) 

UNTIL INSTRd, "YN", PIS) > 

IF PIS = "Y" THEN G0SU3 "SAVE PIC" 
END IF 
RETURN 



REM 

REM 

REM 

"CREATE FILE" 

POKE S1F0O, 7 : 

POKE WORD S1F01, 

name 

POKE S1F03, SC3 

POKE S1F04, SCI 

POKE WORD S1F05, 

POKE S1F07, 1 : 

POKE WORD S1F08, 

t ime 

POKE WORD S1F0A, 

MACHLG SA9, SCO, 

REM Call ProDOS 

RETURN 



ILE CREATOR 



REM 7 Parms for the create cai 
VARPTR(PICS) : REM Point to f 

: REM Allow full access 
: REM Filetype = SCI 

: REM Clear aux_type field 
REM Seedling storage type 

: REM Clear out creation da 



520, S803, S90, 3, S20, S3C5J 



"LOAD IT" 
GOSUB "CHANGED?" 
VT = 20 : HT = I 
GOTO "LOAD PIC" 

"SAVE AS" 

LOCATE 0, 19 : CLS LINE 

INPUT "Type name of picture -> "; NEWPICS 

LONG IF LEN (NEWPICS) > 

PICS = NEWPICS 

PS = "Y" 

GOSUB "CREATE FILE" 

GOTO "SAVE PIC" 
END IF 

LOCATE 0,19 : CLS PAGE 
RETURN 

"CLEAR IT" 
GOSUB "CHANGED?" 
GOSUB "INIT SCREEN" 
"GO BACK" 

RETURN 



REM 
REM 



ERROR TRAPPER 



33M _____--.--------------- 

"ERROR HANDLER" 

POKE SC02 9, 1 : PRINT "ERROR = "ERROR 

ERR = ERROR AND SFF : ERROR = 

PRINT S(4,22) "File exists. Overwrite? (Y/N)" 
DO 

UNTIL INSTRtl, "YN", PIS) > C 
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TO: ZBASIC Newsletter 

Attached are four nasty little "functions" 
from someone who thinks structured 
programming is about as much fun as an 
extra helping of boiled TOFU. They work 
on the Apple ProDOS versions of ZBasic; I 
don't know if they work on the DOS 3.3 
version. 

Bryon Bowe 

P.O. BOX 928 

West Acton, MA 01720 
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FOUR NEW WEAPONS 
FOR NON- 
STRUCTURED 
ProDOS 
PROGRAMMERS 




REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



FN gosub (address) 



FN goto (address) 



FN pop 



FN return (level) 



Simlar to GOSUB (and CALL) but 

branch to addresses as well as constants: 

(1) FN gosub (100) >CALL 100 

(2) FN gosub (LINE 100) >GOSUB 100 

(3) jmp=LINE "Prompt" 

FN gosub (jmp) >GOSUB "Prompt" 

Simlar to GOTO but 

branch to addresses as well as constants: 

(1) FN goto (LINE 100) >GOTO 100 

(2) jmp=LINE "Prompt" 

FN goto (jmp) >GOTO" Prompt" 

POPs one level off the stack (just like 
Applesoft's POP command: 

(1) FN pop >POP (Applesoft) 

(2) FN pop 

GOTO "Promt" >RETURN"Promt" (zsasic) 

Returns through multiple levels: 



(1) 


FN 


return 


(0) 


>Does nothing 


(2) 


FN 


return 


(1) 


>RETURN 


(3) 


FN 


return 


(2) 


>POP: RETURN 


(4) 


FN 


return 


(3) 


>POP : POP : RETURN 


(5) 


FN 


return 


(4) 


>POP : POP : POP : RETURN 



LONG FN gosub (XXX_address%) 

POKE WORD$02, XXX_address% : MACHLG $6C, $02, $00 

END FN 

LONG FN goto (XXX address%) 

POKE WORD $02, XXX_address%: MACHLG $68, $68, $6C, $02, $00 

END FN 

LONG FN pop 

MACHLG" $68, $AA, $68, $A8, $68, $68, $98, $48, $8A, $48 

END FN 

LONG FN return (XXX level%) 

POKE aORD $02, XXX_level%: MACHLG $68, $68, $C6, $02, $D0, $FA 

END FN 
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Zlllujjjjs/jjjjZZ. 




E) 



~s~ 



in 

IIHIHIJIIIHIHH 



1 1, 1, 1, 1, 1, 1, 1, 1, 1, Ij I , I , I , I, Ij jg^ 



s. 



sa 



PROBLEM: ZBasic does funny things after reconfiguring the 
sizes of floating point variables. (Exact symptoms are 
undefined.) 

FIX: You CANNOT use the P)atch option from within ZBasic, 
since by the time you get to it, the damage has already been 
done. You must use DEBUG, a program that is supplied with 
every copy of MSDOS. Follow the instructions exactly (the 
<cr> represents the carriage return key): 



wnat you type: 

DEBUG ZBASIC. COM<cr> 
E CS:ClA2<cr> 
2E<cr> 
W<cr> 



DEBUG 



resoonas : 



- (if s prompt) 
xxxx:C!A2 30. 



Writ ina 



390 bytes 



MSDOS 



4.01 Upgrade Notice 

As you all probably know, version 4.0 was released 
with some serious problems. These were corrected 
in version 4.01 which you should all have by now. 

Well, lo-and-behold, we have discovered problems 
with 4.01. These problems are fixed with the 
following patch (which pops you up to the current 
version 4.01p). 

If you version already has a "p" after it do not do 
these patches. SEE PATCH PROGRAM PAGE 20! 

We will be releasing version 4.02 in six to eight 
weeks. You can recieve a FREE UPGRADE by 
just sending in your master diskette. We will 
return a new diskette when 4.02 is ready at no 
charge. 

NOTICE TO ALL USERS OF ZBASIC VERSION 4.01 

Since releasing V4.01 on August 26th (yes, we started shipping 
immediately), we have been discovering Basic Unwanted 
Grievances (in other words, BUGs) and correcting them as 
quickly as we can. The following is a list of what we've found 
so far, and instructions on patching your copy of ZBasic to 
correct the problems. 

First of all, a warning! In the following fixes/patches, if the 
original value of the byte shown by the system does not match 
the value shown in the "Original Value" column, DO NOT 
MAKE THE PATCH! What this probably means is that your 
copy of the software has already been fixed (either by patching 
or reassembly) and modifying it could have disastrous results. 
In addition, make these patches only to a COPY of your 
ZBASIC.COM file. I will not be held responsible for any 
inadvertant trashings of master disks. 



Q (this quits DE3UG) 

For the following patches, you can use the P)atch command 
available at the ZBasic startup screen. Instructions on using 
PATCH can be found on page B-15 of the ZBasic manual (the 
same instructions apply to the MS-DOS version). 

PROBLEM: The FIX command will cause the system to hang 
if a null (i.e. blank) line is followed by a line containing 32 
bytes (27 characters/tokens + 5 header bytes). 

FIX: Use the PATCH option from the main ZBasic title screen 
to enter the following patch: 



Address 


Orig. 


.rial Value 


New 


Value 


&55ED 




SE3 




S80 


S55EE 




SF9 




SE9 


&55EF 




S80 




S05 


&55F0 




SE9 




S74 


S55F1 




S05 




SF6 



PROBLEM: A compiled program does not perform a signed 
integer comparison correctly. 

FIX: Enter the following patch to change the opcode table that 
the compiler uses to generate the comparison: 



Address 


Or 


-■33 


nal, Va. 


.ue 


New 


Value 


SBD2A 






S73 






S7D 


53D2E 






£77 






S7F 


SBD30 






S76 






S7E 


S3D34 






S72 






S7C 



PROBLEM: The ZBasic runtime system does not update the 
default segment value after chaining (for statements such as 
POKE, PEEK, CALL, etc.). 

FK: Use a DEF SEG statement at the beginning of any chain 
module that performs direct memory manipulation, such as 
PEEKs, POKEs, etc. This will reset the default segment back 
to the program's DATA segment. 
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PROBLEM: If a non-line-numbered line is deleted while in the 
screen editor, other non-line-numbered lines could be deleted 
also. 

FIX; Enter the following patch, using the P)atch option on the 
main startup screen: 



Address 

&77D9 
&77DA 
&77DB 



Original Value 

SE8 
SE1 
SDE 



New 


Value 




&90 




&90 




&90 



PROBLEM: Using the VARPTR function to retrieve the 
address of an integer array element will return the incorrect 
address, and may cause the system to crash. 

FIX: Due to the complexity of the problem, there is no patch, 
but there is a work around. This consists of using VARPTR to 
retrieve the address of a simple integer variable, and then 
calculating the address of the array variable from this. The 
following program demonstrates this method. 



Use "A" to access % A(*)' 
Point to integer var seginent 



00010 DEFINT A, I, X 

00020 DIM A, A(10) : > 

00030 Z = MEM D : ' 

00040 PRINT HEXS (VARPTR (A) ) : ' Prints address 'A' 

00050 PRINT HEXS(Z),: ' Prints seg of integer vars 

000 60 A = VARPTR (A) : ' Retrieves address of V A' 

00070 A = A + 2 

00071 ' Integers 2 bytes long, 'A' points to A(*) 

00080 PRINT HEXS (A) 

00081 ' This prints the address of A(0) 
00090 FOR I = 1 TO 5 

00100 A(I) = I * 100 

00101 ' Just some stuff to PEEK at! 

00110 X = A + (2*1): 'Calc address each element 

00120 PRINT HEX$(Z); ":"; HEXS (X) ; "-"; 

00130 PRINT PEEK WORD (X) , 

00140 PRINT A (I) : ' Print value (should be same) 

00150 NEXT I 

00160 END 

PROBLEM: There is a major bug in chaining. When a 
program chains to another module, the runtime system fails to 
update some system variables that are used to manage the 
variable segments. This problem will most likely show up if 
you attempt to chain a second time within the same execution 
cycle (i.e. without exiting the program). 

FIX: The following patch requires the use of the 30 byte patch 
area that is mentioned on page A-21 of the ZBasic manual. If 
you are currently using that area of memory for something 
else, you will have to make a choice between this patch and 
your own. The additional patch area (at &1B9) is not affected 
by this patch. 

Address Original Vali 



;0I69 
;316A 

50163 
;0I6C 
;016D 
5Q16E 
;016F 



S00 
S00 
500 
500 
S00 

soo 

400 



50170 
&0171 
50172 
S0173 
&0174 
S0175 
S0176 
&0177 
S0178 
&0179 
&017A 
S017B 
&017C 
&017D 
&017E 
S017F 
&0180 
S0181 
S0182 
&0183 
&43FC 
&43FD 



SOO 
SOO 
&00 
SOO 
S00 
SOO 
SCO 
SOO 
S00 
S0C 
SOO 
S00 
S00 
S00 
S00 
S00 
S00 
S00 
S00 
SOO 
SFO 
SC4 



SA1 
S68 
S02 
S2E 
SA3 
&C8 
S02 
S8C 
SD0 
S2B 
S06 
S19 
S03 
&2E 
SA3 
SCA 
S02 
SE9 
S6A 
&07 
&6B 
SBD 



PROBLEM: With CONVERT TO UPPER CASE and SPACES 
BETWEEN KEYWORDS both configured to YES, the editor 
will attempt to convert digits within variable names to upper 
case (in other words, funny characters will be produced). 

FDX: If you must have both options configured to YES, then 
don't use digits within variable names. If you must use digits 
within variable names, then don't have both options configured 
to YES at the same time (in other words, "DONT DO DAT!"). 

PROBLEM: Communications buffers can not be set larger 
than 255 bytes. 

FDC: Patch the following locations. 



Address 

S4B86 
&4B87 
S4B88 
S4B97 
S4B98 



Original Value New Value 



SBA 
S47 
S4 6 
S75 
S0C 



558 
&EB 
S16 
S90 
S90 



PROBLEM: COM (port) ON and COM (port) OFF communica- 
tions commands do not work. 

FK: Patch the following locations. 

Address Original Value New Value 



not a 


ffected 


S4 6C2 
S46C3 
S46C4 


yaiue 




S46C5 
S46C6 


SAi 




S4 6C7 


S64 




S46C8 


S02 




S46C9 


S2E 




S46CA 


SA3 




S46CB 


SC6 




S46CC 


S02 







S75 
&06 
SBA 
SFC 
502 
5EB 
504 
S90 
SBA 
SFC 
503 



SE4 
S21 
575 
504 
524 
SF7 
SE3 
Sll 
S24 

SE3 
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&46CD 
&4 6CE 
&4 6CF 
S46D0 
S46D1 
S46D2 
S46D3 
&46D4 
S46D5 
S4 6D6 
&4 6D7 
S46D8 
S46D9 
S46DA 
S4 6D3 
S4 6DC 
S4 6DD 
S4 6DE 
S46DF 
S4 6E0 
S46E1 



S30 
SOI 

&C3 
SA9 

SOI 

soo 

S75 
S06 
S3A 
SFC 
S02 
SEB 
&04 
S90 
SBA 
SFC 
S03 
S30 
S09 
SEE 



SA9 
SOI 
SOO 
SE4 
521 
S75 
504 
SOC 
S08 
SE3 
502 
SOC 
SlO 
SE6 
£21 
SBO 
S20 
&E6 
S20 
SC3 



00**************0000 0****0***0*0* '0************************0***000000000*0000. 



PROBLEM: System will not save itself after configuration, nor 
will it save ASCII source files. This has been tracked down to 
a bad batch of disks that had twelve apparently random bytes 
altered during the duplicating process. 

FIX: Patch the following locations. 

Address Original Value New Value 



S3BE0 
S3BE1 
S3BEA 

S3EE0 

S3EE1 
S3EEA 

S3F00 
S3F01 
S3F0A 

&3F80 
&3F81 
S3F8A 



S06 
SOO 
SOO 

S54 
SOO 
SOO 

SOF 
SOO 
SOO 

SOO 
SOO 
SOO 



S20 
S75 
S80 

SAE 
SFB 
S02 

SFA 

S3E 
S03 

S08 
SF6 
S74 



'patched'). This is so that we will be able to differentiate from 
patched and non-patched versions. 

I'm sorry about the inconvenience that we all have gone 
though. I dearly hope that the end result is well worth it to 
everybody. 

Greg Branche 
Product Manager 
Apple/IBM Division 



4.01 TO 4.01p Patch Program 

If you don't like Patching programs, this pro- 
gram is available on GEnie and CompuServe 
and may be downloaded to patch your version 
4.01 until 4.02 comes out. It's in the IBM 
library and is named ZBUGS.ZBS. 



These are all of the known problems so far (optimistic, ain't I). 
If anybody comes up with anything new, please let me know as 
soon as possible. If I find anything new, Til post updates here 
as soon as I have a fix. 

I have updated my ASM files, and will produce a version 4.02 
sometime within the next 6-8 weeks. Within that time, Til be 
on the lookout for any other problems that pop up. In the 
meantime, send in your ZBasic master disk. When 4,02 
becomes available, we'll update your master disk and send it 
back to you at no charge. 

I have uploaded the source code for a ZBasic program that will 
run through your ZBASIC.COM file and make all the patches 
for you. Simply download the program from the library, load it 
into ZBasic, then RUN it. Once you are done with the patches, 
make sure you keep the program around somewhere. Well 



00010 

00020 

00021 

00030 

00040 

C0050 

00052 

00054 

00060 

000G5 

00061 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00181 

00190 

00191 

00200 

00201 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00291 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 



MODE 2 : CLS 

PRINT "PLEASE ENTER COMPLETE PATHNAME " 

PRINT "TO FILE TO BE PATCHED:" 

INPUT "-> "; FILES 

INPUT "OUTPUT TO PRINTER? "; AS 

AS = LEFTS (AS, 1) : IF AS = "Y" THEN ROUTE 

AS=MIDS (FILES, 2,1) 

LONG IF AS=":" 

DRS = LEFTS (FILES, 2) 
END IF 
FILES = RIGHTS (FILES, 



128 



LEN(FILES)-2) 
FOR I = LEN (FILES) TO 1 STEP -I 

AS = MIDS (FILES, 1,1) 
IF AS = "\" THEN PSN =1:1=1 
NEXT I 
LONG IF PSN <> 

PTHS = LEFTS (FILES, PSN) 

FILES = RIGHTS (FILES, LEN (FILES) - PSN) 
XELSE 

PTHS = PATHS (0) 
END IF 
OLDPTHS = PATHS (0) : CHDIR PTHS 



PRINT 
PRINT 

PRINT 
PRINT 
PRINT 
PRINT 

OPEN ' 
PRINT 



"THE FOLLOWING BYTES WERE" 
"NOT PATCHED BECAUSE:" 



1> ORIGINAL VALUE 

: PRINT "AND" 
2> CURRENT VALUE 
: PRINT 



CURRENT" 



TAB (5) 

" valu: 

TAB (5) 
"VALUE 

= DRS + FILES 
R", 1, FILES, 1 
"ADDRESS", "OLD", 
READ 3YTE, OLD, NEW 
WHILE 3YTE <> 

RECORD #1, 3YTE-S100 
READ #1 
LONG IF 
PRINT 
PRINT 
XELSE 

LONG IF ASC (AS ) <> NEi'i 
AS = CHRS (NEW) 
RECORD =1, 3YTE - Si 
WRITE #1, AS;1 
END IF 
END IF 

READ BYTE, OLD, NEW 
WEND 

CLOSE =1 
CKDIR OLDPTHS 



:URREJ 



<> NEW 



"NEW" 



AS;1 

(ASC (AS ) OOLD ) AND (ASC (AS ) OSES 
HEXS(BYTE), HEXS (OLD) , 
KEXS (ASC ( AS ) ) , HEXS (NEW) 
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00410 

00420 

00430 

00440 

POINT 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 

00980 

00990 

01000 

01C1C 

01020 

n i q 3 o 

01040 
n i n -; n 

010 60 
01070 
01080 



' PATCH TO 
VARIABLES 

DATA SC1A2, 

1 PATCH TO 1 

DATA &55ED, 

DATA S55EE, 

DATA &55EF, 

DATA &55F0, 

DATA S55F1, 



FIX RECONFIGURATION OF FLOATING 



&30, &2E 

"IX 'FIX' COMMAND 

&E3, £80 

SF9, SE9 

£80, £05 

&E9, £74 

£05, £F6 



PATCH TO FIX SIGNED INTEGER COMPARISON 



DATA S3D2A, 

DATA £BD2E, 

DATA £3D30, 

DATA £3D34, 

1 PATCH TO 

DATA £77D9, 

DATA £77DA, 

DATA £77D3, 



£73, 
£77, 
£76, 
£72, 



£7D 
£7F 

£7E 
£7C 



•IX DISAPPEARING EDITOR LINES 

£E8, £90 
SE1, S90 
SDE, £90 



PATCH TO FIX CHAINING 



DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA- 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA- 
DATA 
DATA 
DATA 
DATA 



&0I69, 
£Q16A, 
£0163, 
£016C, 
£016D, 
£016E, 
&016F, 
£0170, 
£0171, 
£0172, 
£0173, 
£0174, 
£0175, 
£0176, 
£0177, 
£0178, 
&0179, 
£017A, 
£017B, 
&G17C, 
£017D, 
£017E, 
£0I7F, 
£0180, 
£0181, 
£0182, 
£0183, 
£43FC, 
£43FD, 



£00, 
SuO , 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 
£00, 

£00, 
£00, 
SOO, 
£F0, 
£C4, 



£A1 
£64 
£02 
£2E 
£A3 
£C6 
£02 
£A1 
£68 
£02 
£2E 
£A3 
£C8 
£02 
£8C 
£D0 
£23 
506 
£19 
£03 
£2E 

it Hi 

£CA 



£07 
£63 

S3D 



1 PATCH TO 

DATA £4 6C2, 

DATA S46C3, 

DATA £4 6; 

DATA £ 4 c! 

DATA £ 4 6C 6 , 

DATA £46C7, 

DATA £46C8, 

D.ATA. £ 4 6C 9 , 



ON / 



)M OFF 30 



£ / 3, SE^ 

;2l 



£02 
SE3 
£04 



£04 
£24 
£r 7 
£E3 



L110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



£46CA, 
£46CB, 
£46CC, 
£46CD, 
£46CE, 
£46CF, 
£46D0, 
£46D1, 
£46D2, 
S46D3, 
£46D4, 
£46D5, 
£46D6, 
S46D7, 
£46D9, 
S46DA, 
£46DB, 
£46DC, 
£46DD, 
£46DE, 
£46DF, 
S46E0, 
£46E1, 



£3A, 
£FC, 
£03, 
£B0, 
£01, 
£EE, 
£C3, 
£A9, 
£01, 
£00, 
£75, 
£06, 
£3A, 
£FC, 
£EB, 
£04, 
£90, 
£BA, 
£FC, 
£03, 
£B0, 
£09, 
£EE, 



£24 
£EF 
£E3 
£0D 
£A9 
£01 
£00 
£E4 
£21 
£75 
£04 
SCC 
£08 
£E3 

scc 

£10 
SE6 
£21 
£30 
£20 
£E6 
£20 
£C3 



PATCH TO FIX COM BUFFER SIZE BUG 



DATA £4386, 
DATA £4887, 
DATA £4388, 
DATA £4397, 
DATA £4398, 



£3A, 
£47, 



£58 
£E8 
£46, £16 
£75, £90 
£0C, £90 



! ATCH TO UPDATE VERSION NUM3ER 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



£ 6AE4 , 
£C768, 
SC769, 
SC76A, 
SC7 6B, 
£C7 6C, 
£C76D, 
SC76E, 
SC76F, 
SC770, 
SC771, 
£C772, 
£C773, 
£C774, 
&C775, 
£C776, 
£C777, 
£C778, 
£C779, 
£C77A, 



£20, 
£20, 
£42, 
£61, 
£73, 
£69, 
£63, 
£20, 
£49, 
£6E, 
£74, 
£65, 
£72, 
£70, 
£69, 
S6C, 
£65, 
£72, 
£01, 
£20, 



£70 
£70 
£20 
£42 
£61 
£73 
£69 
£63 
£20 
£49 
£6E 
£74 
£65 
£72 
£70 
£69 
£6C 
£65 
£72 
£01 



PATCHES TO FIX BIT SHIFTS 



DURING DUPLICATION 



DATA £3BE0, 
DATA S33E1, 
DATA S33EA, 
DATA S3EE0, 
DATA &3EE1, 
DATA &3EEA, 



£06, 
£00, 
£00, 
554, 
£00, 
£00, 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



£3F00, 
£ 3F01 , 
S3F0A, 
£3F3C, 
£3F81, 
S3F8A, 



£00, 



£20 
£75 
£80 
£AE 
£F3 
£02 
£FA 
S3E 
S 03 
£08 
£F6 
£74 



31810 DATA 
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PALLETTE 
Demonstration 
in EGA Mode 

The following little program demonstrates the 
pallettes in the mode 19 use of the EGA board. It 
displays each pallette as a rainbow of color, and 
shows how different selections change the pallette 
colors. 



The program presented here shows 4 pallettes, the 
first 16 of 64, second 16, third 16 and fourth 16 
groupings. To have more fun, change the variable 
D by another increment by replacing the 1 in line 
60 with some other e.g. 5 or 7 and run it again. 



The background can also be changed by substitut- 
ing another number for the 9 in line 80. 



This program was submitted by Randall J. McClel- 
land, M.D. 



CHANGE IN TECHNICAL 
SUPPORT HOURS 




The New Hours are 

11:00 AM to 4:00 PM 

Mountain Standard Time 



00010 MODE 19 

00020 D=0 

00030 FOR A=l TO 4 

00040 FOR B=0 TO 15 

00050 PALLETTE B,D 

00060 D=D+1 

00070 IF D>64 THEN D=D-64 

00080 COLOR B, 9 

00090 C=B*80 

00100 ' CIRCLE FILL C+250, 

00110 PRINT% (700,700 

00120 PRINT%(700,720) 

00130 TRON X 

00140 NEXT B 

00150 DELAY 2000 

00160 CLS 

00170 NEXT A 



'EGA Mode 



'Change the 1 for variations 
'Change the 9 for other backgrounds 



C+150, C+50 
"# ";B+1;" OF PALLETTE 
"COLOR" ;D 



;A 
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Sound Generation Program 

for the TRS-80 Model 4 






•:.*?■■ 





Z80 Computers 

CP/M™ and TRS-80™ 

We don't have a lot of new stuff for the Z80 folks 
this issue. 



As usual we request that anyone with special 
routines send them in to us for printing. 





Are the Z80 computers fading away? 

Tell us why not?! We certainly hope not (ed). 



Gentlemen: 

I am offering the following subroutine to readers of 
"Z" to enhance the sound capabilities of the TRS-80 
Model 4:. 

"TONE" 

FOR X=l TO DR 
OUT 14 4,1 
FOR XX=1 TO TN 
NEXT XX 
OUT 14 4,0 
NEXT X 
RETURN 

Variable DR controls the duration of the tone, 
while variable TN controls the pitch of the tone. I 
use this in many of my game programs and have 
used it to generate some simple music. Have fun 
with it. 

I enjoy the newsletter but of course I would like to 
see some more applications for the model 4. 

Sincerely, 

Douglas Stone 
1135 E. 24th Ave. 
Albany, OR 97321 

Thanks Doug! We'd like to provide more examples 
for the TRS-80 and CP/M systems. If you and 
others keep sending them in, we'll keep printing 
them, (ed) 
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